home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Periodicals / develop / develop 4 code / IIgs Printer Driver / DIALOG.MACROS < prev    next >
Encoding:
Text File  |  1990-08-04  |  3.8 KB  |  313 lines  |  [TEXT/pdos]
  1.  MACRO
  2. &lab _NoteAlert
  3. &lab ldx #$1915
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _Dec2Int
  8. &lab ldx #$280B
  9.  jsl $E10000
  10.  MEND
  11.  MACRO
  12. &lab _Int2Dec
  13. &lab ldx #$260B
  14.  jsl $E10000
  15.  MEND
  16.  MACRO
  17. &lab _LEGetTextHand
  18. &lab ldx #$2214
  19.  jsl $E10000
  20.  MEND
  21.  MACRO
  22. &lab _LEGetTextLen
  23. &lab ldx #$2314
  24.  jsl $E10000
  25.  MEND
  26.  MACRO
  27. &lab _LEIdle
  28. &lab ldx #$0C14
  29.  jsl $E10000
  30.  MEND
  31.  MACRO
  32. &lab _LEKey
  33. &lab ldx #$1114
  34.  jsl $E10000
  35.  MEND
  36.  MACRO
  37. &lab _DisposeControl
  38. &lab ldx #$0A10
  39.  jsl $E10000
  40.  MEND
  41.  MACRO
  42. &lab _DrawControls
  43. &lab ldx #$1010
  44.  jsl $E10000
  45.  MEND
  46.  MACRO
  47. &lab _GetCtlHandleFromID
  48. &lab ldx #$3010
  49.  jsl $E10000
  50.  MEND
  51.  MACRO
  52. &lab _GetCtlValue
  53. &lab ldx #$1A10
  54.  jsl $E10000
  55.  MEND
  56.  MACRO
  57. &lab _HiliteControl
  58. &lab ldx #$1110
  59.  jsl $E10000
  60.  MEND
  61.  MACRO
  62. &lab _KillControls
  63. &lab ldx #$0B10
  64.  jsl $E10000
  65.  MEND
  66.  MACRO
  67. &lab _MakeThisCtlTarget
  68. &lab ldx #$2810
  69.  jsl $E10000
  70.  MEND
  71.  MACRO
  72. &lab _NewControl2
  73. &lab ldx #$3110
  74.  jsl $E10000
  75.  MEND
  76.  MACRO
  77. &lab _SetCtlValue
  78. &lab ldx #$1910
  79.  jsl $E10000
  80.  MEND
  81.  MACRO
  82. &lab _DisableMItem
  83. &lab ldx #$310F
  84.  jsl $E10000
  85.  MEND
  86.  MACRO
  87. &lab _GetMenuBar
  88. &lab ldx #$0A0F
  89.  jsl $E10000
  90.  MEND
  91.  MACRO
  92. &lab _SetMenuBar
  93. &lab ldx #$390F
  94.  jsl $E10000
  95.  MEND
  96.  MACRO
  97. &lab _WaitCursor
  98. &lab ldx #$0A12
  99.  jsl $E10000
  100.  MEND
  101.  MACRO
  102. &lab _DrawString
  103. &lab ldx #$A504
  104.  jsl $E10000
  105.  MEND
  106.  MACRO
  107. &lab _EraseRect
  108. &lab ldx #$5504
  109.  jsl $E10000
  110.  MEND
  111.  MACRO
  112. &lab _GetMasterSCB
  113. &lab ldx #$1704
  114.  jsl $E10000
  115.  MEND
  116.  MACRO
  117. &lab _GetPort
  118. &lab ldx #$1C04
  119.  jsl $E10000
  120.  MEND
  121.  MACRO
  122. &lab _GlobalToLocal
  123. &lab ldx #$8504
  124.  jsl $E10000
  125.  MEND
  126.  MACRO
  127. &lab _InitCursor
  128. &lab ldx #$CA04
  129.  jsl $E10000
  130.  MEND
  131.  MACRO
  132. &lab _InvertRect
  133. &lab ldx #$5604
  134.  jsl $E10000
  135.  MEND
  136.  MACRO
  137. &lab _LineTo
  138. &lab ldx #$3C04
  139.  jsl $E10000
  140.  MEND
  141.  MACRO
  142. &lab _MoveTo
  143. &lab ldx #$3A04
  144.  jsl $E10000
  145.  MEND
  146.  MACRO
  147. &lab _PtInRect
  148. &lab ldx #$4F04
  149.  jsl $E10000
  150.  MEND
  151.  MACRO
  152. &lab _SetPenSize
  153. &lab ldx #$2C04
  154.  jsl $E10000
  155.  MEND
  156.  MACRO
  157. &lab _SetPort
  158. &lab ldx #$1B04
  159.  jsl $E10000
  160.  MEND
  161.  MACRO
  162. &lab _StringWidth
  163. &lab ldx #$A904
  164.  jsl $E10000
  165.  MEND
  166.  MACRO
  167. &lab _BeginUpdate
  168. &lab ldx #$1E0E
  169.  jsl $E10000
  170.  MEND
  171.  MACRO
  172. &lab _CloseWindow
  173. &lab ldx #$0B0E
  174.  jsl $E10000
  175.  MEND
  176.  MACRO
  177. &lab _EndUpdate
  178. &lab ldx #$1F0E
  179.  jsl $E10000
  180.  MEND
  181.  MACRO
  182. &lab _NewWindow
  183. &lab ldx #$090E
  184.  jsl $E10000
  185.  MEND
  186.  MACRO
  187. &lab _TaskMaster
  188. &lab ldx #$1D0E
  189.  jsl $E10000
  190.  MEND
  191.  MACRO
  192. &lab pulllong &addr1,&addr2
  193. &lab ANOP
  194.  AIF C:&addr1=0,.a
  195.  AIF C:&addr2=0,.b
  196.  LCLC &C
  197. &C AMID &addr1,1,1
  198.  AIF "&C"="[",.zeropage
  199.  pullword &addr1
  200.  sta &addr2
  201.  pullword &addr1+2
  202.  sta &addr2+2
  203.  MEXIT
  204. .a
  205.  pullword
  206.  pullword
  207.  MEXIT
  208. .b
  209.  pullword &addr1
  210.  pullword &addr1+2
  211.  MEXIT
  212. .zeropage
  213.  ldy #&addr2
  214.  pullword &addr1,y
  215.  ldy #&addr2+2
  216.  pullword &addr1,y
  217.  MEND
  218.  MACRO
  219. &lab pullword &SYSOPR
  220. &lab ANOP
  221.  pla
  222.  AIF C:&SYSOPR=0,.end
  223.  sta &SYSOPR
  224. .end
  225.  MEND
  226.  MACRO
  227. &lab pushlong &addr,&offset
  228. &lab ANOP
  229.  LCLC &C
  230.  LCLC &REST
  231. &C AMID &addr,1,1
  232.  AIF "&C"="#",.immediate
  233.  AIF "&C"="[",.zeropage
  234.  AIF C:&offset=0,.nooffset
  235.  AIF "&offset"="s",.stack
  236.  pushword &addr+2,&offset
  237.  pushword &addr,&offset
  238.  MEXIT
  239. .nooffset
  240.  pushword &addr+2
  241.  pushword &addr
  242.  MEXIT
  243. .immediate
  244. &REST AMID &addr,2,L:&addr-1
  245.  dc I1'$F4',I2'(&REST)|-16'
  246.  dc I1'$F4',I2'&REST'
  247.  MEXIT
  248. .stack
  249.  pushword &addr+2,s
  250.  pushword &addr+2,s
  251.  MEXIT
  252. .zeropage
  253.  ldy #&offset+2
  254.  pushword &addr,y
  255.  ldy #&offset
  256.  pushword &addr,y
  257.  MEND
  258.  MACRO
  259. &lab pushword &SYSOPR
  260. &lab ANOP
  261.  AIF C:&SYSOPR=0,.b
  262.  LCLC &C
  263. &C AMID "&SYSOPR",1,1
  264.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  265.  lda &SYSOPR
  266.  pha
  267.  MEXIT
  268. .b
  269.  pha
  270.  MEXIT
  271. .immediate
  272.  LCLC &REST
  273.  LCLA &BL
  274. &BL ASEARCH "&SYSOPR"," ",1
  275.  AIF &BL>0,.a
  276. &BL SETA L:&SYSOPR+1
  277. .a
  278. &REST AMID "&SYSOPR",2,&BL-2
  279.  dc I1'$F4',I2'&REST'
  280.  MEND
  281.  MACRO
  282. &lab longm
  283. &lab ANOP
  284.  rep #%00100000
  285.  longa on
  286.  MEND
  287.  MACRO
  288. &lab longx
  289. &lab ANOP
  290.  rep #%00010000
  291.  longi on
  292.  MEND
  293.  MACRO
  294. &lab shortm
  295. &lab ANOP
  296.  sep #%00100000
  297.  longa off
  298.  MEND
  299.  MACRO
  300. &lab longmx
  301. &lab ANOP
  302.  rep #%00110000
  303.  longa on
  304.  longi on
  305.  MEND
  306.  MACRO
  307. &lab shortmx
  308. &lab ANOP
  309.  sep #%00110000
  310.  longa off
  311.  longi off
  312.  MEND
  313.